home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / bin / getconfig.pl < prev    next >
Perl Script  |  2006-04-12  |  9KB  |  429 lines
  1. #!/usr/bin/perl
  2.  
  3. # $DHD: xc/programs/Xserver/hw/xfree86/getconfig/getconfig.pl,v 1.13 2003/09/23 05:12:07 dawes Exp $
  4.  
  5. #
  6. # Copyright 2003 by David H. Dawes.
  7. # Copyright 2003 by X-Oz Technologies.
  8. # All rights reserved.
  9. #
  10. # Permission is hereby granted, free of charge, to any person obtaining a
  11. # copy of this software and associated documentation files (the "Software"),
  12. # to deal in the Software without restriction, including without limitation
  13. # the rights to use, copy, modify, merge, publish, distribute, sublicense,
  14. # and/or sell copies of the Software, and to permit persons to whom the
  15. # Software is furnished to do so, subject to the following conditions:
  16. # 
  17. # The above copyright notice and this permission notice shall be included in
  18. # all copies or substantial portions of the Software.
  19. # 
  20. # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  21. # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  22. # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  23. # THE COPYRIGHT HOLDER(S) OR AUTHOR(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR
  24. # OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
  25. # ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  26. # OTHER DEALINGS IN THE SOFTWARE.
  27. # 
  28. # Except as contained in this notice, the name of the copyright holder(s)
  29. # and author(s) shall not be used in advertising or otherwise to promote
  30. # the sale, use or other dealings in this Software without prior written
  31. # authorization from the copyright holder(s) and author(s).
  32. # 
  33. # Author: David Dawes <dawes@XFree86.Org>.
  34. #
  35.  
  36.  
  37. #
  38. # This script takes PCI id information, compares it against an ordered list
  39. # of rules, and prints out the configuration information specified by the
  40. # last matching rule.
  41. #
  42. # This script is called by xf86AutoConfig().
  43. #
  44.  
  45. # Command line processing.
  46.  
  47. $GetconfigVersion = v1.0;
  48.  
  49. $debug = 0;
  50.  
  51. $myname = $0;
  52. $myname =~ s/.*\///;
  53.  
  54. $signature = "Xorg Foundation getconfig rules file.  Version: ";
  55.  
  56. while (@ARGV[0] =~ /^-[A-Za-z]$/) {
  57.     $f = shift;
  58.     SWITCH: {
  59.     if ($f eq "-D") {
  60.         $debug = 1;
  61.         last SWITCH;
  62.     }
  63.     if ($f eq "-I") {
  64.         push(@searchPaths, split(/,/, shift));
  65.         last SWITCH;
  66.     }
  67.     if ($f eq "-V") {
  68.         printf STDERR "$myname: Version %vd.\n", $GetconfigVersion;
  69.         exit 0;
  70.     }
  71.     if ($f eq "-X") {
  72.         $XorgVersionNumeric = shift;
  73.         if (!defined($XorgVersionNumeric)) {
  74.         print STDERR "$myname: -X requires the Xorg version.\n";
  75.         exit 1;
  76.         }
  77.     }
  78.     if ($f eq "-b") {
  79.         $subsys = oct(shift);
  80.         if (!defined($subsys)) {
  81.         print STDERR "$myname: -b requires the subsys id.\n";
  82.         exit 1;
  83.         }
  84.         last SWITCH;
  85.     }
  86.     if ($f eq "-c") {
  87.         $class = oct(shift);
  88.         if (!defined($class)) {
  89.         print STDERR "$myname: -c requires the class value.\n";
  90.         exit 1;
  91.         }
  92.         last SWITCH;
  93.     }
  94.     if ($f eq "-d") {
  95.         $device = oct(shift);
  96.         if (!defined($device)) {
  97.         print STDERR "$myname: -d requires the device id.\n";
  98.         exit 1;
  99.         }
  100.         last SWITCH;
  101.     }
  102.     if ($f eq "-r") {
  103.         $revision = oct(shift);
  104.         if (!defined($revision)) {
  105.         print STDERR "$myname: -r requires the device revision.\n";
  106.         exit 1;
  107.         }
  108.         last SWITCH;
  109.     }
  110.     if ($f eq "-s") {
  111.         $subsysVendor = oct(shift);
  112.         if (!defined($subsysVendor)) {
  113.         print STDERR "$myname: -s requires the subsysVendor id.\n";
  114.         exit 1;
  115.         }
  116.         last SWITCH;
  117.     }
  118.     if ($f eq "-v") {
  119.         $vendor = oct(shift);
  120.         if (!defined($vendor)) {
  121.         print STDERR "$myname: -v requires the vendor id.\n";
  122.         exit 1;
  123.         }
  124.         last SWITCH;
  125.     }
  126.     }
  127. }
  128.  
  129. printf STDERR "$myname: Version %vd.\n", $GetconfigVersion;
  130.  
  131. if (defined($XorgVersionNumeric)) {
  132.     $XorgVersionMajor = $XorgVersionNumeric / 10000000;
  133.     $XorgVersionMinor = ($XorgVersionNumeric % 10000000) / 100000;
  134.     $XorgVersionPatch = ($XorgVersionNumeric % 100000) / 1000;
  135.     $XorgVersionSnapshot = $XorgVersionNumeric % 1000;
  136.     $XorgVersion = chr($XorgVersionMajor) . chr($XorgVersionMinor) .
  137.         chr($XorgVersionPatch) . chr($XorgVersionSnapshot);
  138. }
  139.  
  140. if ($debug) {
  141.     printf STDERR "$myname: Xorg Version: %d, %d.%d.%d.%d, %vd.\n",
  142.     $XorgVersionNumeric, $XorgVersionMajor, $XorgVersionMinor,
  143.     $XorgVersionPatch, $XorgVersionSnapshot, $XorgVersion;
  144. } else {
  145.     printf STDERR "$myname: Xorg Version: %vd.\n", $XorgVersion;
  146. }
  147.   
  148.  
  149. # The rules here are just basic vendor ID to driver mappings.
  150. # Ideally this is all that would be required.  More complicated configuration
  151. # rules will be provided in external files.
  152.  
  153. # XXX This set of basic rules isn't complete yet.
  154.  
  155. @rules = (
  156.  
  157. # Set the weight for the built-in rules.
  158. ['$weight = 500'],
  159.  
  160. # APM
  161. ['$vendor == 0x1142',
  162.     'apm'],
  163.  
  164. # ARK
  165. ['$vendor == 0xedd8',
  166.     'apm'],
  167.  
  168. # ATI
  169. ['$vendor == 0x1002',
  170.     'ati'],
  171.  
  172. # Chips & Technologies
  173. ['$vendor == 0x102c',
  174.     'chips'],
  175.  
  176. # Cirrus
  177. ['$vendor == 0x1013',
  178.     'cirrus'],
  179.  
  180. # Intel
  181. ['$vendor == 0x8086',
  182.     'i810'],
  183. ['$vendor == 0x8086 && ($chipType == 0x00d1 || $chipType == 0x7800)',
  184.     'i740'],
  185.  
  186. # Matrox
  187. ['$vendor == 0x102b',
  188.     'mga'],
  189.  
  190. # Neomagic
  191. ['$vendor == 0x10c8',
  192.     'neomagic'],
  193.  
  194. # Number Nine
  195. ['$vendor == 0x105d',
  196.     'i128'],
  197.  
  198. # NVIDIA
  199. ['$vendor == 0x10de || $vendor == 0x12d2',
  200.     'nv'],
  201.  
  202. # S3
  203. ['$vendor == 0x5333 && ($device == 0x88d0 ||' .
  204.             '$device == 0x88d1 ||' .
  205.             '$device == 0x88f0 ||' .
  206.             '$device == 0x8811 ||' .
  207.             '$device == 0x8812 ||' .
  208.             '$device == 0x8814 ||' .
  209.             '$device == 0x8901)',
  210.     's3'],
  211.  
  212. # S3 virge
  213. ['$vendor == 0x5333 && ($device == 0x5631 ||' .
  214.             '$device == 0x883d ||' .
  215.             '$device == 0x8a01 ||' .
  216.             '$device == 0x8a10 ||' .
  217.             '$device == 0x8c01 ||' .
  218.             '$device == 0x8c03 ||' .
  219.             '$device == 0x8904 ||' .
  220.             '$device == 0x8a13)',
  221.     's3virge'],
  222.  
  223. # S3 Savage
  224. ['$vendor == 0x5333 && ($device >= 0x8a20 && $device <= 0x8a22 ||' .
  225.             '$device == 0x9102 ||' .
  226.             '$device >= 0x8c10 && $device <= 0x8c13 ||' .
  227.             '$device == 0x8a25 ||' .
  228.             '$device == 0x8a26 ||' .
  229.             '$device >= 0x8d01 && $device <= 0x8d04 ||' .
  230.             '$device >= 0x8c2a && $device <= 0x8c2f ||' .
  231.             '$device == 0x8c22 ||' .
  232.             '$device == 0x8c24 ||' .
  233.             '$device == 0x8c26)',
  234.     'savage'],
  235.  
  236. # SIS
  237. ['$vendor == 0x1039',
  238.     'sis'],
  239.  
  240. # SMI
  241. ['$vendor == 0x126f',
  242.     'siliconmotion'],
  243.  
  244. # 3Dfx
  245. ['$vendor == 0x121a',
  246.     'tdfx'],
  247.  
  248. # 3Dlabs
  249. ['$vendor == 0x3d3d',
  250.     'glint'],
  251.  
  252. # Trident
  253. ['$vendor == 0x1023',
  254.     'trident'],
  255.  
  256. # Tseng Labs
  257. ['$vendor == 0x100c',
  258.     'tseng'],
  259.  
  260. # VIA
  261. ['$vendor == 0x1106',
  262.     'via'],
  263.  
  264. # VMware
  265. ['$vendor == 0x15ad',
  266.     'vmware'],
  267.  
  268. );
  269.  
  270. # Reverse the search path list, since the later rules have higher priority
  271. # than earlier ones (weighting being equal).
  272.  
  273. @searchPaths = reverse(@searchPaths);
  274.  
  275. if ($debug) {
  276.     $i = 0;
  277.     for $path (@searchPaths) {
  278.     print STDERR "$myname: Search path $i is: \"$path\".\n";
  279.     $i++;
  280.     }
  281. }
  282.  
  283. print STDERR "$myname: ", $#rules + 1, " built-in rule", plural($#rules + 1),
  284.             ".\n";
  285.  
  286. for $path (@searchPaths) {
  287.     while (<$path/*.cfg>) {
  288.     @tmp = readRulesFile($_);
  289.     if (defined(@tmp[0])) {
  290.         push @rules, @tmp;
  291.     }
  292.     }
  293. }
  294.  
  295. if ($debug) {
  296.     $i = 0;
  297.     for $r (@rules) {
  298.     print STDERR "$myname: rule $i is: \'@$r\'.\n";
  299.     $i++
  300.     }
  301. }
  302.  
  303. $i = 0;
  304. $e = 0;
  305. $weight = 0;
  306. $w = 0;
  307. for $r (@rules) {
  308.     ($cond, $d, @o) = @$r;
  309.     $result = eval $cond;
  310.     if ($@) {
  311.     print STDERR "$myname: Error evaluating rule $i \'$cond\': $@";
  312.     $e++;
  313.     }
  314.     if ($debug) {
  315.     print STDERR "$myname: rule $i \'$cond\' evaluates to \'$result\'.\n";
  316.     }
  317.     if ($result && defined($d) && $weight >= $w) {
  318.     $driver = $d;
  319.     @opts = @o;
  320.     $w = $weight;
  321.     }
  322.     $i++;
  323. }
  324.  
  325. print STDERR "$myname: Evaluated $i rule", plural($i),
  326.         " with $e error", plural($e), ".\n";
  327.  
  328. print STDERR "$myname: Weight of result is $w.\n";
  329.  
  330. if ($debug) {
  331.     if (defined($driver)) {
  332.     print STDERR "$myname: Driver is \'$driver\'.\n";
  333.     } else {
  334.     print STDERR "$myname: No driver.\n";
  335.     }
  336.     if (defined(@opts)) {
  337.     print STDERR "$myname: options are:\n";
  338.     for $opt (@opts) {
  339.         print STDERR "\t$opt\n";
  340.     }
  341.     } else {
  342.     print STDERR "$myname: No options.\n";
  343.     }
  344. }
  345.  
  346. print "$driver\n";
  347. for $opt (@opts) {
  348.     print "$opt\n";
  349. }
  350.  
  351. exit 0;
  352.  
  353. # Subroutines.
  354.  
  355. sub readRulesFile {
  356.     my ($file) = @_;
  357.     my $signatureOK = 0;
  358.     my @r, @tmp;
  359.     my $line, $cont, $prevcont, $fileversion;
  360.  
  361.     undef @tmp;
  362.     undef @r;
  363.  
  364.     if (open(RF, "<$file")) {
  365.     $prevcont = 0;
  366.     while (<RF>) {
  367.         chop;
  368.         $line = $_;
  369.         next if ($line =~ /^#/);
  370.         next if ($line =~ /^\s*$/);
  371.         if (!$signatureOK) {
  372.         if ($line  =~ /^$signature(.*)$/) {
  373.             $fileversion = $1;
  374.             $signatureOK = 1;
  375.             print STDERR
  376.             "$myname: rules file \'$file\' has version $fileversion.\n";
  377.             next;
  378.         }
  379.         }
  380.         if (!$signatureOK) {
  381.         print STDERR "$myname: file \'$file\' has bad signature.\n";
  382.         close(RF);
  383.         last;
  384.         }
  385.         $cont = 0;
  386.         if ($line =~ s/\\\s*$//) {
  387.         $cont = 1;
  388.         }
  389.         if (!$prevcont && $line =~ /^\S+/) {
  390.         if (defined(@tmp[0])) {
  391.             push(@r,[@tmp]);
  392.         }
  393.         undef @tmp;
  394.         }
  395.         if ($prevcont) {
  396.         push(@tmp, pop(@tmp) . $line);
  397.         } else {
  398.         push(@tmp, $line);
  399.         }
  400.         $prevcont = $cont;
  401.     }
  402.     if (defined(@tmp[0])) {
  403.         push(@r,[@tmp]);
  404.     }
  405.     if (!defined(@r[0])) {
  406.         print STDERR "$myname: no rules in file \'$file\'.\n";
  407.     } else {
  408.         print STDERR "$myname: ", $#r + 1,
  409.             " rule", plural($#r + 1),
  410.             " added from file \'$file\'.\n";
  411.     }
  412.     } else {
  413.     print STDERR "$myname: cannot open file \'$file\'.\n";
  414.     }
  415.  
  416.     return @r;
  417. }
  418.  
  419. sub plural {
  420.     my ($count) = @_;
  421.  
  422.     if ($count != 1) {
  423.     return "s";
  424.     } else {
  425.     return "";
  426.     }
  427. }
  428.  
  429.